home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
program
/
qbprog.EXE
/
MORS.TXT
< prev
next >
Wrap
Text File
|
1995-12-05
|
3KB
|
80 lines
┌──────────────────────────────────────────────────────────────────────────┐
│┌────────────────────────────────────────────────────────────────────────┐│
││ ││
││ Gwbasic programlar ││
││ ││
│└────────────────────────────────────────────────────────────────────────┘│
│ PS 28 · Kasìm'95 Murat Necioºlu │
└──────────────────────────────────────────────────────────────────────────┘
Tüm programlar GWBASIC 3.11 ile basic dilini yeni öºrenmeye baƒlayan
programcìlara örnek vermek için hazìrlanmìƒtìr. Programlar olabildiºince
anlaƒìlìr yazìlmak ile birlikte bazì açìklamalar yapmak yararlì olacaktìr.
┌────────┐
─┤MORS.BAS├───────────────────────────────────────────────────────────────────
└────────┘
Bu program istenilen mesajì yazìlì ve sesli olarak mors alfabesine
çeviriyor. Program içerisindeki ara verme döngüsü (300. satìr) 286 iƒlemcili
bilgisayar hìzìna göre belirlendiºi için daha hìzlì makinalarda döngü
sayìsìnìn arttìrìlmasì gerekebilir.
Program girilen kelimeleri karakterlere ayìrdìktan sonra M$
dizisindeki deºeri sesli ve yazìlì olarak ekrana basìyor. Mors alfabesini
Temel Bilimler kitabìndan alìnmìƒtìr.
┌──────────┐
─┤DERECE.BAS├─────────────────────────────────────────────────────────────────
└──────────┘
ÿstenilen sìcaklìk girildikten sonra santigrad için C, fahrenhayt
için F yazarak iki sìcaklìk birimini birbirine çevirip ekrana yazìlìr.
Örneºin: 30 C= 86 F
86 F= 30 C
┌────────┐
─┤HECE.BAS├───────────────────────────────────────────────────────────────────
└────────┘
Bu program kelimelerin ingilizce söyleniƒlerini ekrana yazar.
ÿngilizce öºrenen kimseler için yardìmcì olabilir. Harflerin okunuƒu
REDHOUSE ÿngilizce Türkçe sözlükten alìnmìƒtìr.
┌──────────┐
─┤ÇARPAN.BAS├─────────────────────────────────────────────────────────────────
└──────────┘
Bu program girilen sayìyì asal çarpanlarìna ayìrìr. Çarpan sayìsì
onsekizden fazla ise çarpanlarì sadece üssel olarak yazar.
┌───────────┐
─┤DENKLEM.BAS├────────────────────────────────────────────────────────────────
└───────────┘
2. derece denklemin katsayìlarì girildikten sonra köklerini hesaplar.
Denklemi ekrana yazdìktan sonra çözüm kümesini ekrana yazar.
┌────────┐
─┤SAAT.BAS├───────────────────────────────────────────────────────────────────
└────────┘
Programìn çalìƒtìrìldìºì zamanì ekrana yazar.
┌────────────┐
─┤ROMENDEN.BAS├───────────────────────────────────────────────────────────────
└────────────┘
Romen sayìlarìnì günlük yaƒamda kullandìºìmìz 10'luk sayì sistemine
çevirir. Romen rakkamlarìnì temsil eden harfler dìƒìnda bir karakter
girildiºinde program uyarìda bulunur ve durur. Romen rakkamlarì kurallarìna
uymayan giriƒlerde de aynì tepki verilir. Önemli bir diºer nokta da romen
rakkamlarì büyük harf ile girilmelidir.
┌──────────┐
─┤ROMENE.BAS├─────────────────────────────────────────────────────────────────
└──────────┘
Günlük yaƒantìmìzda kullandìºìmìz 10'luk bir sayìyì romen rakkamì
ile ekrana getirir. Çevirilen en büyük sayì 3999'dur.